home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / comms / thor_2.22 / thor.lha / rexx / Others / FTPGet.daftp < prev    next >
Text File  |  1995-12-18  |  867b  |  48 lines
  1. /*
  2. ** $VER: FTPGet.daftp 1.1 (29.5.95)
  3. **
  4. ** by Eirik Nicolai Synnes
  5. **
  6. ** Please read the comment in the beginning of FTPGet.thor for info on this
  7. ** script.
  8. **
  9. **
  10. */
  11.  
  12. /* Edit these variables: */
  13. listfile = "Thor:GetFiles.txt" /* This must be the same in FTPGet.thor and FTPGet.daftp */
  14. remotehome = "/pub/aminet/"     /* Set this to the remote AmiNet directory */
  15. /* End */
  16.  
  17. i = 0
  18.  
  19. if exists(listfile) then do
  20.     call open(filelist, listfile, 'R')
  21.     do until eof(filelist)
  22.         i = i + 1
  23.         files.i = readln(filelist)
  24.         end
  25.     call close(filelist)
  26.     end
  27. else do
  28.     say 'Couldn''t find filelist ('listfile')'
  29.     exit(0)
  30.     end
  31.  
  32. address("daftp")
  33.  
  34. CD NOSCAN '"'remotehome'"'
  35. if rc ~= 0 then do
  36.     say 'Remote CD to 'remotehome' failed.'
  37.     exit(0)
  38.     end
  39.  
  40.  
  41. do j = 1 to i
  42.     if files.j ~= "" then do
  43.         MGET BIN files.j
  44.         say result
  45.         if rc ~= 0 then say 'MGET of 'files.j' failed.'
  46.         end
  47.     end
  48.